00100		SUBROUTINE PLTCMD
00200		COMMON/FRMT/F78F(1),FA1(1),FA5(1),ASK
00300		DIMENSION NMS(8),RMOV1(8),RMOV2(8)
00400		COMMON /DL/RSIZ,SAVER,NAME /ALF/INP(72),ML
00500		COMMON RJB,JE,CENTR,JB,RJQ(20),JQ(20)
00600		EQUIVALENCE (RJE,RJQ(3)),(RJF,RJQ(4)),(RJG,RJQ(5)),(RJD,RJQ(2))
00700		1,(RJC,RJQ(1)),(I2,INP(2)),(RJH,RJQ(6)),(NMS(1),INP(31))
00800		1,(RMOV1(1),INP(39))
00900	C  BE CAREFUL OF COMMON OVERLAPS WITH NOTWRT,ITMSUB,HOMER, ETC.
01000	
01100		IF(I2.NE.'L')GO TO 1
01200		I2=0
01300		RXC=0
01400		RMOV1(1)='Y'
01500		NAME=0
01600	14	KA=0
01700	3	KA=KA+1
01800		IF(ML.EQ.0)GO TO 15
01900		K=K-2
02000		ML=ML-1
02100		IF(ML.EQ.0)GO TO 10
02200		GO TO 31
02300	15	TYPE 2,KA
02400		ACCEPT 11,K,ML
02500	C  TYPE LAST NAME, NUMBER  FOR A SERIES
02600	50	IF(K.EQ.' ')GO TO 10
02700		IF(K.EQ.'99')GO TO 140
02800	C  99=BACKUP
02900	31	IF(LOOKD(K))GO TO 56
03000	C JUMP IF FILE FOUND
03100		TYPE 55
03200		GO TO 15
03300	55	FORMAT(' FILE NOT FOUND'/)
03400	11	FORMAT(A5,I)
03500	56	NMS(KA)=K
03600		IF(ML.EQ.0)GO TO 5
03700		RJH='Y'
03800		GO TO 21
03900	5	TYPE 8
04000		ACCEPT FA5,RJH
04100		IF(RJH.EQ.'99')GO TO 15
04200		IF(RJH.NE.'Y')RJH=0
04300		IF(RJH.EQ.0)REREAD F78F,RJH
04400	C  MOVE NUMBER CAN BE TYPED FOR 'MOVE UP'
04500	21	RMOV1(KA+1)=RJH
04600		RMOV2(KA)=RJH
04700		GO TO 3
04800	140	KA=KA-1
04900		GO TO 15
05000	
05100	10	KB=KA-1
05200		TYPE 9
05300		ACCEPT F78F,RS
05400		RSIZ=RS
05500		IF(RSIZ.EQ.99.OR.RSIZ.EQ.0)GO TO 5
05600		KA=0
05700	
05800	1	IF(NAME.NE.0)GO TO 12
05900		IF(KA.EQ.KB)CALL EXIT
06000		NAME=NMS(KA+1)
06100		TYPE 111,NAME
06200		RETURN
06300	12	KA=KA+1
06400		NAME=0
06500	C  'PL' = CALCOMP OUTPUT
06600		RJH=0
06700		RJB=RS
06800		RJC=RS
06900		RJG=0
07000		RJE=1
07100		RJF=1
07200		IF(RMOV2(KA).NE.'Y')RJG=RMOV2(KA)
07300		IF(RMOV1(KA).NE.0)RJE=0
07400		IF(RMOV2(KA).NE.0.OR.RJG.NE.0)RJF=0
07500	2	FORMAT(' TYPE FILE NAME',I2,1X$)
07600	8	FORMAT(' MOVE UP AT END? ',$)
07700	9	FORMAT(' SIZE FACTOR? ',$)
07800	111	FORMAT(1XA5/)
07900		END